extern int dorgr2_(integer *m, integer *n, integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *work, integer *info);
/*:ref: xerbla_ 14 3 13 4 124 */
/*:ref: dlarf_ 14 10 13 4 4 7 4 7 7 4 7 124 */
/*:ref: dscal_ 14 4 4 7 7 4 */
